﻿Namespace Reports

    Public Class R_07_00201

        Public Sub CreateDataBindings()

            'Me.XrTableCell_DepartmentCode.DataBindings.Add("Text", Me.DataSource, "DEPARTMENT_ID")
            'Me.XrTableCell_DepartmentName.DataBindings.Add("Text", Me.DataSource, "DEPARTMENT_ID")
            Me.XrTableCell_LostCount.DataBindings.Add("Text", Me.DataSource, "LOST_COUNT")
            Me.XrTableCell_ReceiveCount.DataBindings.Add("Text", Me.DataSource, "RECEIVE_COUNT")
            Me.XrTableCell_PrincipalIntegrality.DataBindings.Add("Text", Me.DataSource, "PRINCIPAL_INTEGRALITY")
            'Me.XrTableCell_PrincipalStaffCode.DataBindings.Add("Text", Me.DataSource, "PRINCIPAL__STAFF_ID")
            'Me.XrTableCell_PrincipalStaffName.DataBindings.Add("Text", Me.DataSource, "PRINCIPAL__STAFF_ID")

        End Sub
    End Class

End Namespace